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ABSTRACT 

Several student-authored computer programs are 
presented which do advanced plot routines. They are remarkable in 
that they are able to plot a function expressed in polar coordinates 
on a teletype. Some plot routines developed by the Project Solo staff 
are also presented. They are designed to be used with a Hewlett 
Packard 7200 A plotter connected to a teletype. (JY) 
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Advanced Plotting Routines 

We just received (courtesy of Miss Kavanagh) some examples 
of student-authored plot routines that are nothing short of in- 
genious. They were written by John Ernsberger of Fox-Chapel 
High School, and have solved the almost unsolvable problem of 
plotting a function expressed in polar coordinates on a teletype. 
When you realize that the teletype cannot backspace, and that 
the paper only moves forward, you get some idea of the hurdles 
that John had to conquer. We're still not quite sure how he did 
it! John also wrote /SINESJE/ and /POLTU/. 

The Hewlett-Packard Plotter 



For those of us with not quite the talent that John has 
demonstrated (including Project Solo Staff) , there is hope. 

By using a more flexible plotting device which can move back 
and forth in both the X and Y directions, and which can 
plot hundreds of points (or lines) in a small space, a whole 
new range of possibilities is opened up. (We don't even dare 
contemplate what Mr. Ernsberger would do with this tool at his 
disposal . ) 

Two examples are attached to illustrate the performance of 
the HP 7200 A Plotter which can be connected to any teletype. 

The first example illustrates use of the plotter to draw a 
cardioid in "point" mode, which means that the pen only makes a 
"dot" at each (X, Y) position. The angle T (measured in radians) 
goes from 0 to 6.28 (2tt) in steps of 0.05 radians. Thus 6. 28/. 05 

or about 125 points of the cardioid are plotted. 

In the second example, the plotter is in line mode, which 
means that the pen draws lines from one (X, Y) coordinate position 
to the next. In the example shown (a five leaved rose) , we delib- 
erately used a large increment in T so that long line segments 
are drawn from one point to the next, producing an interesting 
artistic result. 

Since the HP 7200 A is an X-Y plotter, the transformations 
X=R*COS(T) and Y=R*SIN(T) had to be used in both those examples. 
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10 DIM YC480>.pXC460>.»Z(45.»25> * BC480 > #E(480 ) 

20 FOR 1 = 1 IV 580 

30 LET A=I*Q5>e /I 80 .*3. 141 5926535 

40 LET R=C0S(2*A> 

50 LET YCI >=CSINCA> >*R A listing of /POLAR/ 

60 LET XC I > = <G0S ( A > >*R 
70 IF 1=1 THEN 90 

80 IF A0SCYCD-YC1 >><0.000010000 AND A35CXC I >-X< 1 > ><0 .000010000 THEN 1 
00 

90 NEXT I 
100 LET 1=1-1 

110 LET BCC >=ABS CXCC > > FOR C = 1 TO I 
120 GOSUB 670 
130 LET 0*BCI> 

140 LET B(C>*Y(C> FOR C=1 TO I 
150 GO SOB 670 
160 LET 0=8(1 > 

170 LET j/=B C I > 

180 LET P«U/20. 

190 FOR G*0 TO W STEP P 
200 LET D=INT< CG-V>/P+1 .5> 

210 LET L=1 

220 LET ZCD# 1 >®0 
230 FOR K= 1 TO I 

240 IF ABS(G-Y(K> >>0/39.9 THEN 270 

250 LET L=L+1 

260 LET Z(D*L>*X(K> 

270 NEXT K 

280 IF L=1 THEN 380 

290 LET B(C >=Z (D*C > FOR C = 1 TO L 

300 GOSOB 670 

310 LET Z(D#C>=B(C> FOR C=1 TO L 
320 FOR Q=1 TO L 

330 IF ZCD*Q+1 >-ZCD,Q>>U/68. THEN 370 

340 FOR Al=Q+2 TO 25 

350 LET Z(D*A1 -1 >=Z(D* A1 > 

360 NEXT A1 
370 NEXT Q 
380 NEXT G 

390 FOR F=W TO V STEP -P 
400 LET J«INT< (F-0>/P+l .5> 

410 IF ABSCFX0/39.9 THEN 570 
420 IF ABSCF-UX0/39.9 THEN 600 
430 IF ABS(F+UXU/39.9 THEN 620 
440 LET H=1 

450 IF ZCJ*H>=0 THEN 480 

460 PR. TABC35+ZC J*H>/J*34> t"*": 

470 GO TO 510 

480 IF N>1 THEN 530 

490 LET N=2 

500 PR. TAB(35> t"Y"J 

510 LET H»H+1 

520 GO TO 450 

530 LET N= 1 

540 PRINT 

550 NEXT F 
55 0 GO TO 640 

570 PR. " X" STAB (3 >5-1 X TAB ( 1 9 > 8 ,f X X X X X X X X 0 X X X X X X X X" s 
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70 LET R=>IN(3*A/2) 
>SAOE 

ONt /POLAR/ 

OLD FILE? 

>-NBS 

VER. DEC 18 10:17 
>RUN /POLAR/ 



5 80 PR. TAB (54) :U:TAB(69) :'*X 

590 GO TO 550 

600 PR. TAB (35 ) tU 

610 GO TO 550 

620 PR. TAB(35)*-i*U 

630 GO TO 550 

640 PR. 

650 PR. ”C W EST FINI I ! ! ! " 

660 END 

670 FOR S= 1 TO C-l 
680 FOR M=S+1 TO C 
690 IF B(SXB(M) THEN 730 
700 LET T=B(S> 

710 LET B(S)*B(M> 

720 LET B(M)-T 
730 NEXT M 
740 NEXT S 
750 RETURN 
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C'EST FINI! ! ! ! 




>40 LET R»8.-12.*<l-C0S<A+l *2>> 
>SME 

ON* /POLAR/ 

OLD FILE? 

>-NBS 

v/ER. DEC 18 10*17 
>RUN /POLAR/ 



• y * * * * * 

Y * 

* Y* * 

X -11.56833856 XXXXXXXXOXXXXXXXX 1 
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C'EST FINI III! 

40 LET R*12.-10.*< l-COSCA+l *2) ) 

> S Av/ E 
ON* /POLAR/ 

OLD FILE? 

>-NBS 

v/ER. DEC 18 10*17 
>RUN /POLAR/ 



X -8.485581595 



C’EST FINI ! I 1 1 



Y * * * * 

Y* * * 

XXXXXXXXOXXXXXXXX 



* 

* 

* 



* * 



* 

* 

* 



Y 

Y 

Y 

Y 

Y 

i 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

Y 

* Y 



* * * *Y 

Y * * 



-8*485581595 

Y 

Y 

Y 

Y 

Y 

* *Y 

Y * * * 
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5 DIM 0 C 6 ) * Y ( 6 ) 

10’ FOR X=-4 TO 4.01 STEP 0.1 
20 IF ABSCX)>0.01 THEN 50 
30 PRINT ” -2 YYYYYY -1 
Y Y Y Y +2” 

40 00 TO 310 
45 GOST-1 500 GO TO 150 
50 LET YC 1 >=2.*SINCX) 

60 LET YC2)=2.*CSINCX) )t3 
70 LET YC3)=2.*C5INCX) ) t'24 
80 LET YC4>=SINCX)*SINC2*X> 

90 LET YC5XSINCX) 

100 LET YC6)=Q 
110 LET ACIXYCI) FOR 1=1 TO 6' 

120 FOR 0=1 TO 5 
130 FOR J-Q+l TO 6 

1/jO IF A C Q ) > A C J ) THEN 45 

150 NEXT «J 

150 NEXT 0 

170 FOR K=1 TO 6 

175 FOR 1=1 TO 6 

180 IF ACKXYCI) THEN 185 

189 NEXT I 

185 ON I GOSOB 690 j 6 tO* 630* 650 > 570# 535 
300 NEXT K 
305 PRINT 
310 NEXT X 

320 PRINT "C*>=2*CSIMCX>>t3" 

330 PRINT ** C # ) =S I M C X ) +5 1 N C 9*X ) ** 

340 PRINT 

342 PRINT "C&>*2*CSIN(X>>»24 4 ' 

344 PRINT '•CS>«3*SIN(X>" 

350 PRINT 

360 PRINT "FINISHED!!! 4 * 

370 END 

500 LET T=ACQ ) 

510 LET ACQ )=AC*J) 

520 LET AC J>=T 
530 RETURN 



Program listing 
of /SINESJE/ 



535 


FOR R= 


i 

f> 

H 

O 

S 


540 


IF A3SCX-RX0.91 THEN ><l 


542 


NEXT R 


548 


FOR S = 


1 TO 4 


550 


IF A3SCX-SX0.Q1 THEN 570 


555 


NEXT S 




560 


GO TO 


590 


570 


PRINT 


TAB C 35 ) s ' ' ,4, a 2 


580 


GO TO 


700 


583 


PRINT 


TA3C35) s ’it 


587 


go ro 


700 


590 


PRINT 


TAB C 35) : ,, X‘ , s 


600 


GO TO 


700 


610 


PRINT 


TAB CYC I ) *17+35') s"*"? 


5 20 


go ro 


700 


530 


PRINT 


TAB CYC I >*1 7+3 5) 


640 


GO TO 


700 


650 


PRINT 


TAB C Y C I )*1 7+35) : ,, #**s 


660 


GO TO 


7 00 


670 


PRINT 


TA3CYC I )*17+35) : M 0": 


5 80 


GO TO 


700 


0 690 


PRINT 


TA3CYC I )*1 7+35 ) •"S" S 


ERJC790 


RETURN 
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A run Of /SINES JE/ 
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$ * 
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s * # 

$ *# 

s * * 

#$ 

# s 

# s 

* 

§ 



t -46 § * 

# X4 *9 

# X4 * • 

# xa : * 9 

# X6* 9 i 

# X4 * 9 S 

# X4* 9 $ 

# X4 *8 $ 

#X4*9S 

S9+X4# 

S 9 *-34# 

$ 9 *X4 # 

$ 9 * X4 . # 

$ 9 * X4 *' 

5 9 * X6 # 

9 * X& # 

4* X4 # 

* 9 X4 # 

* 9 X4# 

9 X#& 

9 # -2 a 

9 # x a 

9 # X 

9 # X 

9# x 

9 X 

9 X 

• x a 

9 x a 

§ x a 

9 -la 

* 9 xa 

*9 xa 

«# * a 

9 * xa 

$ 9 * xa 

s 9 * xa 

# $ 9 *X4 

# s 9 *xa 

# 3> 9*X4 





-2 Y Y Y Y Y Y -1YYYYY 


Y Y 0 V y X 


Y Y Y Y + 1 Y 


Y Y Y Y Y Y + 1 






xa*9s# 










xa*a s 
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* £ * 








xa* 8 


S * 








xa * 


9 $ 








xa * 


9 £ 








xa 


*3 S 


# 






xa 


9 * 


£ 0 






xa 


3 * 


£ 0 






+ la 


(? % 


£4? 






x a 


3 


* * £ 


? 




x a 


3 


** £ 






>c 


ft 9 


*» * £ 






X 




#ft *s 
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X 


9 # 


ft*£ 


(• 




V 


#3 
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* S 
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V o ft 


Hi £ 


■j. 




V £ 


3 , 3 


.£ 






+ '•>>*} 
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* ■; 






•> ;Cft 


3 * 


£ 


■f 




* X?# 


? * 


£ 






Xft 


3 * 


£ 


> 


# 


>:ft 


*a 


£ 




# 


X?c * 


9 S 






* 


x 5 < * 


9 5 




l 

/ 


# 


Xft* o 


£ 




;.i 


# 


X* * ? 


S 




■2” 




* Xft * 0 


s: 








# + 3ft *3 3 






.■£ 




*3$ 


<*)=2*<SIM(X>>T3 
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s**xft* 


<#)=SIN(X)+SINC2*X) 



5 9 *(»<# 

5 9 *X4 # 

s s * xa # 

5 9 * xa # 

9 * xa # 

9 * xa # 

9* xa # 

*9 + 4 * # 



<9 >=SIN(X> 

<4>=2*<siM<x>>t24 

<*>=2*SIM<X> 

FINISHED! I I 
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>RUN /POLTU/ 



Thir program is an initial 
attempt at a "graphic" 
tutorial by high school 
senior, John Ernsberger. 



X -1 



y # * * 

Y * * * * 

Y * 

Y 

Y * 

Y * 

Y 

Y* 

Y 

Y 

XXXXXXXXOXXXXXXXX 1 

Y 

Y 

Y* 

Y 

Y * 

Y * 

Y 

Y * 

Y * * * * 

Y * * * 

TYPE THE EQUATION THAT YOU THINK HAS JUST BEEN GRAPHED. 
?R*CCS<A> 

GOOD 

(VEST FXMXC f 1 « 0.769751131 

* Y * 



CIRCLE DRAWN ON THE 
[-j— p PLOTTER USING 
LINE MODE AND A LARGE 
INCREMENT FOR T 



Y = R * 5 I N CTD 



x=R*cc)5 ct: 

ERIC 
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CARDIOID DRAWN ON THE HP 
PLOTTER USING POINT MODE. 




r 

t- 

! 

i 
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10 PRINT "PL TP" 

15 T = 0 
20 A - 4. 

3 0 R = A*C 1 . - C0SCT) ) 

4 0 X = R*CfiS<T> 

5 0 Y = R+SINCT) 

60 PR. INT< <?./3>»)* X + 500 + 5000)5 INTC Y*500 + 5000) 
70 T * T ♦ .05 
?0 IF T > 6.28 G0T0 99 
9 0 G0T0 30 

99 PRINT "PLTL" 

1 00 PR. 00005 5000S "t" 

1 05 PR. 50005 5000 
1 10 P,R. 99995 5000 
1 1 5 PR. 50005 9999: "»" 

120 PR. 50005 5000 
1 25 PR. 50005 0000 
1 30 END 
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FIVE-LEAF ROSE DRAWN ON THE 
HP PLOTTER USING LINE MODE. 




I 



I 

! 



I 



10 PRINT "PLTl," 

1 5 T = 0 
20 A s 4. 

^ > R = SINC 5.*T/3. ) 

40 X s R*C0S( T) 

50 Y - R*SINCT> 

60 pr. INTC C2./3. >*X*2500+ 5000)1 INTC Y*2500+ 5000 
70 T = T + .5 

80 IF T > 75. G0T0 99 
90 G0T0 30 

99 PRINT "PLTL" 

100 PR. 00001 5000! '’t" 

1 05 PR. 50001 5000 

1 10 PR. 99991 5000 

115 PR. 50001 9?99:"t" 

120 PR. 50001 5000 n 

125 PR. 50001 0000 O 

ERJC 1 30 END 




